home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / SMALLREC.MOD < prev    next >
Text File  |  1989-01-18  |  2KB  |  73 lines
  1.                                         (* Chapter 11 - Program 1 *)
  2. MODULE SmallRec;
  3.  
  4. FROM InOut   IMPORT WriteString, WriteCard, WriteLn;
  5.  
  6. TYPE Description = RECORD
  7.        Year   : CARDINAL;
  8.        Model  : ARRAY[0..20] OF CHAR;
  9.        Engine : ARRAY[0..8] OF CHAR
  10.      END;
  11.  
  12. VAR  Truck : Description;
  13.      Cars  : ARRAY[1..10] OF Description;
  14.      Index : CARDINAL;
  15.  
  16. BEGIN   (* Main Program *)
  17.  
  18.    Truck.Year := 1981;
  19.    Truck.Model := " Pickup";
  20.    Truck.Engine := "Diesel";
  21.  
  22.    FOR Index := 1 TO 10 DO
  23.       Cars[Index].Year := 1930 + Index;
  24.       Cars[Index].Model := " Duesenberg";
  25.       Cars[Index].Engine := "V8";
  26.    END;
  27.  
  28.    Cars[2].Model := " Stanley Steamer";
  29.    Cars[2].Engine := "Coal";
  30.    Cars[7].Engine := "V12";
  31.    Cars[9].Model := " Ford";
  32.    Cars[9].Engine := "rusted";
  33.    Cars[9].Year := 1981;
  34.  
  35.    WriteString('My');
  36.    WriteCard(Truck.Year,5);
  37.    WriteString(Truck.Model);
  38.    WriteString(" has a ");
  39.    WriteString(Truck.Engine);
  40.    WriteString(' engine.');
  41.    WriteLn;
  42.  
  43.    FOR Index := 1 TO 10 DO
  44.       WriteString('My');
  45.       WriteCard(Cars[Index].Year,5);
  46.       WriteString(Cars[Index].Model);
  47.       WriteString(" has a ");
  48.       WriteString(Cars[Index].Engine);
  49.       WriteString(' engine.');
  50.       WriteLn;
  51.    END;
  52. END SmallRec.
  53.  
  54.  
  55.  
  56.  
  57. (* Result of execution
  58.  
  59. My 1981 Pickup has a Diesel engine.
  60. My 1931 Duesenberg has a V8 engine.
  61. My 1932 Stanley Steamer has a Coal engine.
  62. My 1933 Duesenberg has a V8 engine.
  63. My 1934 Duesenberg has a V8 engine.
  64. My 1935 Duesenberg has a V8 engine.
  65. My 1936 Duesenberg has a V8 engine.
  66. My 1937 Duesenberg has a V12 engine.
  67. My 1938 Duesenberg has a V8 engine.
  68. My 1981 Ford has a rusted engine.
  69. My 1940 Duesenberg has a V8 engine.
  70.  
  71. *)
  72.  
  73.